00100		SUBROUTINE RDSAV(KT,NMS,K,NAME,IO,L)
00200	C  POINTER LIST, TOTAL WD CNT, NAME LIST, FILE NAME, DATA, RD OR WRT.
00300		COMMON /RC/MCLEF(400),IST(4000)/FL/IC,N,NQ,A,B,C,D
00400		DIMENSION KT(1),NMS(1),IO(1),JALL(21)
00500		DO 1 N=1,10
00510		JALL(N)=KT(N)
00520	1	JALL(N+10)=NMS(N)
00600		JALL(21)=K
00650		IF(L)GO TO 5
00675	C  L=-1  FOR READER
00700		CALL PUTFIL(NAME)
00800		CALL FASTOU(JALL,21)
00900		CALL FASTOU(IO,K)
01000		CALL FINFIL
01100		RETURN
01200	
01900	5	CALL GETFIL(NAME)
02000		CALL FASTIN(JALL,21)
02050		K=JALL(21)
02100		CALL FASTIN(IO,K)
02300		DO 2 N=1,10
02400		KT(N)=JALL(K)
02500	2	NMS(N)=JALL(N+10)
02600		TYPE 3
02700		TYPE 4,NMS
02800	3	FORMAT(
02900		1'  0      1      2      3      4      5      6      7
03000		1      8      9')
03100	4	FORMAT(' IDENT. NAMES:'/,10(2XA5))
03200		END